home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 53
/
Tiger_Disk_053_1998-08_Tiger-Crew-Disk_de_Side_B.d64
/
lbr lister v1.0!
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
599b
|
22 lines
100 poke53281,0:poke53280,0:print"[155][147]";
110 print spc(10)"[204]ibrary-[204]ister [214]1.0"
120 print spc(9)"[151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][155]":print
130 print"[151]([152][195][151]) by [152][205]arc [155]'[194]lack[202]ack' [152][210]intsch [151]in 1998":print:print
300 input"[204]ibrary-[206]ame ";n$
310 n$=n$+".lbr"
320 open2,8,2,n$+",s,r"
330 input#2,id$:print:print
340 if left$(id$,3)<>"dwb" then print"[206]o [204]ibrary!":close2:end
350 nr=val(mid$(id$,4))
360 print nr;"files in library ";n$
370 print:print "[206]ame [212]yp [194]ytes [194]locks":print
380 for i=1 to nr
390 : input#2,f$,t$,s$
400 : print chr$(34);f$;chr$(34);spc(18-len(f$));t$;" ";s$;spc(6-len(s$));
410 : s=val(s$)
420 : print int(s/254)+1
425 : b=b+s:bl=bl+int(s/254)+1
430 next
600 print:print"total size =";b;"bytes (=";bl;"blocks)"
900 close2